home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / sorts / module1.bas < prev    next >
BASIC Source File  |  1999-08-12  |  647b  |  19 lines
  1. Attribute VB_Name = "Module1"
  2. DefLng A-Z
  3. Declare Function SetPixel Lib "GDI32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal color As Long) As Long
  4. Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" (Dest As Any, Source As Any, ByVal Length As Long)
  5. Public Const Flame_Height As Integer = 30 ' Higher the number the shorter the flame
  6.  
  7. Type pix
  8.     r As Byte   ' Red
  9.     g As Byte   ' Green
  10.     b As Byte   ' Blue
  11.     c As Byte   ' Constant Colour
  12. End Type
  13.  
  14. Public maxx As Integer   ' Array max x
  15. Public maxy As Integer   ' Array max y
  16.  
  17. Public new_flame() As pix  ' Flames buffers
  18. Public old_flame() As pix
  19.